home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / springer / tech-erg / tech-erg.cmm < prev    next >
Encoding:
Text File  |  1991-12-08  |  21.9 KB  |  581 lines

  1. %===============================================================================
  2. % Font-Definitionen (CM-FONTS) fuer Technik Ergebnisse
  3. %===============================================================================
  4.    \font \kla=     cmr8
  5.    \font \klit=    cmti8 
  6.    \font \klb=     cmmi8
  7.    \font \klc=     cmsy8
  8.    \font \kld=     cmex10 scaled 833
  9.    \font \klsf=    cmmib10 scaled 833
  10.    \font \klsl=    cmsl8
  11.    \font \klbf=    cmbx8
  12.    \font \kltt=    cmtt8
  13.    \font \kkla=    cmr6
  14.    \font \kklb=    cmmi6
  15.    \font \kklc=    cmsy6
  16.    \font \kkld=    cmex10 scaled 694
  17.    \font \kklsf=   cmmib10 scaled 694
  18.    \font \tafont=  cmbx10 scaled\magstep2
  19.    \font \hftc=    cmmib10 
  20.    \font \hft=     cmmib10 scaled\magstep2
  21.    \font \tbfont=  cmbx10 scaled\magstep1
  22.    \font \tcfont=  cmbx10
  23.    \font \tdfont=  cmb10
  24.    \font \tbfonta= cmsl10 scaled\magstephalf
  25. %---------------------------------------------------------
  26. %-----------------------------------------------------------------------%
  27. %  Makro fuer Ergebnisseformat einspaltig mit Kolumnentitel und Pagina. %
  28. %  Kolumnentitel und Pagina haben die selbe Schriftgr\"osse             %
  29. %-----------------------------------------------------------------------%
  30. %
  31.      \magnification\magstep1
  32. %
  33. % Die Satzspiegelbreite
  34. %
  35.      \hsize = 14.4truecm
  36. %
  37. % Die Satzspiegelhoehe
  38. %
  39.      \vsize = 23.1truecm
  40. %
  41. \nopagenumbers
  42. \raggedbottom
  43. \abovedisplayskip=8pt  plus 0pt minus 2pt
  44. \belowdisplayskip=8pt plus 0pt minus 2pt
  45. \abovedisplayshortskip=0pt plus 2pt
  46. \belowdisplayshortskip=2pt plus 2pt
  47. \lineskip=0pt
  48. \linepenalty=0
  49. \frenchspacing
  50. \parskip=0pt
  51. \clubpenalty=10000
  52. \widowpenalty=10000
  53. %\pretolerance=1000
  54. \tolerance=500
  55. %===============================================================================
  56. % Definition der versal griechischen Buchstaben
  57. %===============================================================================
  58.  
  59.   \mathchardef\Gamma="0100
  60.   \mathchardef\Delta="0101
  61.   \mathchardef\Theta="0102
  62.   \mathchardef\Lambda="0103
  63.   \mathchardef\Xi="0104
  64.   \mathchardef\Pi="0105
  65.   \mathchardef\Sigma="0106
  66.   \mathchardef\Upsilon="0107
  67.   \mathchardef\Phi="0108
  68.   \mathchardef\Psi="0109
  69.   \mathchardef\Omega="010A
  70. %-------------------------------------------------------------------------------
  71. % Formel linksbuendig mit 20 pt Einzug
  72. %
  73. %-------------------------------------------------------------------------------
  74.    \catcode`\@=11
  75. %-------------------------------------------------------------------------------
  76.       \newdimen\mathindent % Betrag, um den eingerueckt wird
  77.       \mathindent=20pt
  78.       \def \eqno {$\hfill$}
  79.       \def \leqno {$\hfill$}
  80.       \long\def \leftdisplay#1$${\line{\hskip\mathindent
  81.                                        $\displaystyle#1$\hfil}$$}
  82.       \everydisplay{\leftdisplay}
  83.  
  84.       \def \eqalignno#1{%
  85.               \displ@y \tabskip=0pt
  86.               \advance\displaywidth by -\mathindent
  87.               \vbox{%
  88.                 \halign to \displaywidth{%
  89.                   \hfil$\displaystyle{##}$\tabskip=0pt
  90.                   &$\displaystyle{{}##}$\hfil\tabskip=\centering
  91.                   &\llap{$##$}\tabskip=0pt\crcr#1\crcr}}}
  92.  
  93. %-------------------------------------------------------------------------------
  94. %  Kleindruck einzelne Woerter
  95. %
  96.    \def \petit           {\baselineskip=9.6pt\textfont0=\kla
  97.                           \scriptfont0=\kkla
  98.                           \textfont1=\klb \scriptfont1=\kklb
  99.                           \textfont2=\klc \scriptfont2=\kklc
  100.                           \textfont3=\kld \scriptfont3=\kkld
  101.                           \scriptscriptfont0=\kkla
  102.                           \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
  103.                           \let\bf=\klbf\let\sf=\klsf\let\sg=\klsf
  104.                           \let\rm=\klfam}
  105.    %\def \eklein          {\egroup}
  106. %------------------------------------------------------------------------
  107. %===============================================================================
  108. % Makro fuer Vektoren in halbfett-kursiv.
  109. %===============================================================================
  110. %
  111. %------------------------------------------------------------------------------%
  112. %  Halbfett,kursiv fuer Vektoren
  113. %
  114. \def\vek#1{{\textfont1=\hftc\scriptfont1=\kklsf
  115. \textfont0=\tenbf\scriptfont0=\sevenbf
  116. \mathchoice{\hbox{$\displaystyle#1$}}{\hbox{$\textstyle#1$}}
  117. {\hbox{$\scriptstyle#1$}}{\hbox{$\scriptscriptstyle#1$}}}}
  118. %
  119. %------------------------------------------------------------------------------%
  120. % Vektoren in halbfett-kursiv mit Dach (Zirkumflex) ueber nachfolgenden
  121. % Zeichen (max. 3)
  122. %
  123.         \def\vhat#1{{\textfont1=\hftc\scriptfont1=\kklsf
  124.         \textfont0=\tenbf\scriptfont0=\sevenbf
  125.         \mathchoice{\hbox{$\displaystyle \,\widehat {#1}\,$}}
  126.         {\hbox{$\textstyle \,\widehat {#1}\,$}}
  127.         {\hbox{$\scriptstyle \,\widehat {#1}\,$}}
  128.         {\hbox{$\scriptscriptstyle \,\widehat {#1}\,$}}}}
  129. %
  130. %------------------------------------------------------------------------------%
  131. % Vektoren als Exponenten in halbfett-kursiv mit Dach (Zirkumflex) ueber
  132. %  nachfolgenden % Zeichen (max. 3)
  133. %
  134. %     \def\vhexp#1{\hbox{\textfont0=\kleinhalbcurs\textfont1=\kleinhalbcurs
  135. %                        $\,\widehat{#1}\,$}}
  136. %
  137. %------------------------------------------------------------------------------%
  138. % Vektoren in halbfett-kursiv mit Tilde ueber nachfolgenden
  139. % Zeichen (max. 3)
  140. %
  141.         \def\vtilde#1{{\textfont1=\hftc\scriptfont1=\kklsf
  142.         \textfont0=\tenbf\scriptfont0=\sevenbf
  143.         \mathchoice{\hbox{$\displaystyle \widetilde {#1}$}}
  144.         {\hbox{$\textstyle \widetilde {#1}$}}
  145.         {\hbox{$\scriptstyle \widetilde {#1}$}}
  146.         {\hbox{$\scriptscriptstyle \widetilde {#1}$}}}}
  147. %
  148. %------------------------------------------------------------------------------%
  149. % Vektoren in halbfett-kursiv mit Punkt ueber nachfolgendem
  150. % Zeichen
  151. %
  152.         \def\vdot#1{{\textfont1=\hftc\scriptfont1=\kklsf
  153.         \textfont0=\tenbf\scriptfont0=\sevenbf
  154.         \mathchoice{\hbox{$\displaystyle \dot{\kern-4pt{#1}}$}}
  155.         {\hbox{$\textstyle \dot{\kern-4pt{#1}}$}}
  156.         {\hbox{$\scriptstyle \dot{\kern-4pt{#1}}$}}
  157.         {\hbox{$\scriptscriptstyle \dot{\kern-4pt{#1}}$}}}}
  158.  
  159. %
  160. %------------------------------------------------------------------------------%
  161. % Vektoren in halbfett-kursiv mit Doppelpunkt ueber nachfolgendem
  162. % Zeichen
  163. %
  164.         \def\vddot#1{{\textfont1=\hftc\scriptfont1=\kklsf
  165.         \textfont0=\tenbf\scriptfont0=\sevenbf
  166.         \mathchoice{\hbox{$\displaystyle \ddot{#1}$}}
  167.         {\hbox{$\textstyle \ddot{#1}$}}
  168.         {\hbox{$\scriptstyle \ddot{#1}$}}
  169.         {\hbox{$\scriptscriptstyle \ddot{#1}$}}}}
  170. %
  171. %------------------------------------------------------------------------------%
  172. % Vektoren in halbfett-kursiv mit Strich ueber nachfolgenden
  173. % Zeichen
  174. %
  175.         \def\vbar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  176.         \textfont0=\tenbf\scriptfont0=\sevenbf
  177.         \mathchoice{\hbox{$\displaystyle \overline{#1}$}}
  178.         {\hbox{$\textstyle \overline{#1}$}}
  179.         {\hbox{$\scriptstyle \overline{#1}$}}
  180.         {\hbox{$\scriptscriptstyle \overline{#1}$}}}}
  181. %
  182. %------------------------------------------------------------------------------%
  183. % Vektoren in halbfett-kursiv mit Doppelstrich ueber nachfolgenden
  184. % Zeichen
  185. %
  186.         \def\vdbar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  187.         \textfont0=\tenbf\scriptfont0=\sevenbf
  188.         \mathchoice{\hbox{$\displaystyle \overline{\overline{#1}}$}}
  189.         {\hbox{$\textstyle \overline{\overline{#1}}$}}
  190.         {\hbox{$\scriptstyle \overline{\overline{#1}}$}}
  191.         {\hbox{$\scriptscriptstyle \overline{\overline{#1}}$}}}}
  192. %
  193. %------------------------------------------------------------------------------%
  194. % Vektoren in halbfett-kursiv mit Strich unter nachfolgenden
  195. % Zeichen
  196. %
  197.         \def\vubar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  198.         \textfont0=\tenbf\scriptfont0=\sevenbf
  199.         \mathchoice{\hbox{$\displaystyle \underline{#1}$}}
  200.         {\hbox{$\textstyle \underline{#1}$}}
  201.         {\hbox{$\scriptstyle \underline{#1}$}}
  202.         {\hbox{$\scriptscriptstyle \underline{#1}$}}}}
  203. %
  204. %------------------------------------------------------------------------------%
  205. % Vektoren in halbfett-kursiv mit Doppelstrich unter nachfolgenden
  206. % Zeichen
  207. %
  208.         \def\vdubar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  209.         \textfont0=\tenbf\scriptfont0=\sevenbf
  210.         \mathchoice{\hbox{$\displaystyle \underline{\underline{#1}}$}}
  211.         {\hbox{$\textstyle \underline{\underline{#1}}$}}
  212.         {\hbox{$\scriptstyle \underline{\underline{#1}}$}}
  213.         {\hbox{$\scriptscriptstyle \underline{\underline{#1}}$}}}}
  214. %
  215. %
  216. %------------------------------------------------------------------------------%
  217. % Matrizen in kursiv-fett 10pt
  218. %===============================================================================
  219.  
  220.     \def\MK #1{\hbox{\hftc #1}}
  221. %-------------------------------------------------------------------------------
  222. %===============================================================================
  223. % Ueberschrift bis 4.Ordnung mit automatischer Numerierung
  224. %
  225. %===============================================================================
  226.   % Zaehler-Definitionen fuer Ueberschriften
  227.   %
  228. \expandafter \newcount \csname c@Tl\endcsname
  229.     \csname c@Tl\endcsname=0
  230. \expandafter \newcount \csname c@Tm\endcsname
  231.     \csname c@Tm\endcsname=0
  232. \expandafter \newcount \csname c@Tn\endcsname
  233.     \csname c@Tn\endcsname=0
  234. \expandafter \newcount \csname c@To\endcsname
  235.     \csname c@To\endcsname=0
  236. \expandafter \newcount \csname c@Tp\endcsname
  237.     \csname c@Tp\endcsname=0
  238. \def \resetcount#1    {\global
  239.     \csname c@#1\endcsname=0}
  240. \def\@nameuse#1{\csname #1\endcsname}
  241. \def\arabic#1{\@arabic{\@nameuse{c@#1}}}
  242. \def\@arabic#1{\ifnum #1>0 \number #1\fi}
  243.  % --------------------------------------------------------------
  244.  % Zaehler-Definition fuer Fussnoten und Uberschriften:
  245.  %
  246. \expandafter \newcount \csname c@fn\endcsname
  247.     \csname c@fn\endcsname=0
  248. \def \stepc#1    {\global
  249.     \expandafter
  250.     \advance
  251.     \csname c@#1\endcsname by 1}
  252. %------------------------------------------------------------------
  253. \newdimen\oldparindent
  254. \def\ignorepar{\ifx\par\endgraf
  255. \oldparindent=\parindent\parindent=0pt
  256.      \def\par{\ifvmode\else\endgraf\let\par=\endgraf
  257.               \parindent=\oldparindent\fi}\fi}
  258. %%
  259. \newdimen\dimenone
  260. \newdimen\skipone
  261. \def\checkleftspace#1#2#3{%
  262.     \dimenone=\pagetotal
  263.     \advance\dimenone by -\pageshrink
  264.     \ifdim\dimenone > \pagegoal
  265.           \else\dimenone=\pagetotal
  266.           \advance\dimenone by \pagestretch
  267.              \ifdim\dimenone < \pagegoal\dimenone=\pagetotal
  268.                 \advance\dimenone by 24pt
  269.                \setbox0=\hbox{#1\arabic{Tl}\ }
  270.                 \setbox0=\vbox{#1\parskip=0pt
  271.                 \raggedright\noindent%
  272.                 \hangindent=\wd0\hangafter=1
  273.                 \box0#2%
  274.                  \vskip#3} \advance\dimenone by \ht0
  275.                  \advance\dimenone by 3\baselineskip
  276.                      \ifdim\dimenone > \pagegoal\vfill\eject
  277.                      \fi
  278.             \else\eject
  279.             \fi
  280.     \fi}
  281.  % Beginn Ueberschrift 1. Ordnung arabisch numeriert
  282.  %
  283.     \def\raggedright{\rightskip=0pt plus 5em}
  284. %
  285.     \newtoks\leftheadline
  286.     \newtoks\rightheadline
  287.  \def \titlea#1{\leftheadline={\kla \folio\quad #1\hfill}
  288.  {\ifvmode\else\par\fi
  289.     \checkleftspace{\tafont}{#1}{12pt}
  290.      \stepc{Tl}
  291.      \resetcount{Tm}
  292.     %\bgroup
  293.     \tafont
  294.     \setbox0=\hbox{\arabic{Tl}\ }
  295.      \vskip18pt
  296.      \baselineskip=16pt
  297.      \lineskip=16pt
  298.      \raggedright
  299.     \noindent
  300.     \hangindent=\wd0\hangafter=1
  301.     \box0#1%
  302.     \vskip50pt
  303.     %\egroup
  304.      \nobreak}
  305.    %\vskip-\parskip
  306.     \ignorepar\ignorespaces}
  307.  % -----------------------------------------------------------------
  308.  % Beginn Ueberschrift 2. Ordnung arabisch numeriert
  309.  %
  310.  \def \titleb#1{\rightheadline={\kla \hfill #1\quad\folio}
  311.  {\ifvmode\else\par\fi
  312.    \checkleftspace{\tbfont}{#1}{12pt}%
  313.      \stepc{Tm}
  314.      \resetcount{Tn}
  315.    %\bgroup
  316.      \tbfont
  317.     \setbox0\hbox{\arabic{Tl}.\arabic{Tm}\ }%
  318.      \vskip18pt
  319.      \raggedright
  320.      \baselineskip=14.4pt
  321.      \lineskip=14.4pt
  322.      \noindent
  323.      \hangindent=\wd0\hangafter=1
  324.      \box0#1%
  325.      \vskip12pt%
  326.      \noindent
  327.  %  \egroup%
  328.      \nobreak}%
  329.  %   \vskip-\parskip
  330.    \ignorepar\ignorespaces}
  331.  % ----------------------------------------------------------------
  332.  % Beginn Ueberschrift 3. Ordnung arabisch numeriert
  333.  %
  334.  \def \titlec#1{{\ifvmode\else\par\fi
  335.      \checkleftspace{\tcfont}{#1}{12pt}
  336.      \stepc{Tn}
  337.      \resetcount{To}
  338.      \bgroup
  339.      \tcfont
  340.      \setbox0\hbox{\arabic{Tl}.\arabic{Tm}.\arabic{Tn}\ }
  341.      \goodbreak
  342.      \vskip18pt
  343.      \raggedright
  344.      \noindent
  345.      \baselineskip=12pt
  346.      \lineskip=12pt
  347.      \hangindent=\wd0\hangafter=1
  348.      \box0#1%
  349.      \vskip12pt%
  350.      \noindent
  351.      \egroup%
  352.      \nobreak}%
  353.    %\vskip-\parskip
  354.    \ignorepar\ignorespaces}
  355.  % -------------------------------------------------------------------
  356.  % Beginn Ueberschrift 4. Ordnung arabisch numeriert
  357.  %
  358.  \def \titled#1{{\ifvmode\else\par\fi
  359.      \checkleftspace{\tdfont}{#1}{12pt}
  360.      \stepc{To}
  361.      \resetcount{Tp}
  362.      \bgroup
  363.      \tdfont
  364.      \setbox0\hbox{\arabic{Tl}.\arabic{Tm}.\arabic{Tn}.\arabic{To}\ }
  365.      \goodbreak
  366.      \vskip18pt
  367.      \raggedright
  368.      \baselineskip=12pt
  369.      \lineskip=12pt
  370.      \noindent
  371.      \hangindent=\wd0\hangafter=1
  372.      \box0#1%
  373.      \vskip12pt%
  374.      \noindent
  375.      \egroup%
  376.      \nobreak}%
  377.    %\vskip-\parskip
  378.     \ignorepar\ignorespaces}
  379. % -------------------------------------------------------------------
  380. % Definition neue Zeile
  381. %
  382.     \def \nz    {\hfill\break}
  383. %
  384. %===============================================================================
  385. % Spitzmarke kursiv.
  386. %
  387. %===============================================================================
  388. %
  389. %  Spitzmarke kursiv
  390. %
  391.    \def \titlef #1{\hsize=37.5truecc\hangindent=-19.5cc\hangafter=0
  392.                    \bgroup\noindent\tbfonta\ #1%
  393.                    \egroup\ignorespaces}
  394. %===============================================================================
  395. % Abbildungslegende.
  396. %
  397. %===============================================================================
  398. % Definition "Beginn Literaturverzeichnis"
  399. %der kleine Zwischenraum wird definiert:
  400.  
  401.  \let\zw=\thinspace
  402. %---------------------------------------------------------------------------
  403. % Abbildung
  404.    \def \caption  #1#2{\vskip6pt\noindent \bgroup
  405.                   \baselineskip=9.6pt plus0pt minus0pt
  406.                   \let\sanf=\ssanf \let\send=\ssend
  407.                   \textfont0=\kla \scriptfont0=\kkla
  408.                   \textfont1=\klb \scriptfont1=\kklb
  409.                   \textfont2=\klc \scriptfont2=\kklc
  410.                   \scriptscriptfont0=\kkla
  411.                   \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
  412.                   \let\sf=\klsf\let\sg=\klsg\let\rm=\klfam
  413.                    {\klbf #1}$\;$#2 \filbreak\par\egroup\vskip0.5cm}
  414. %===============================================================================
  415.  %der kleine Zwischenraum wird definiert:
  416.       \let\zw=\thinspace
  417.  %____________________________________________________________
  418.  % Definition der Anf\"uhrungszeichen:
  419.  %
  420.  % deutsche Anf\"uhrungszeichen auf:
  421.  \def \daa{\hbox{\lower6pt\hbox{''}}}
  422.  %
  423.  % deutsche Anf\"uhrungszeichen zu:
  424.  \def \daz{`` }
  425.  %
  426.  % % -------------------------------------------------------------------
  427.  % Definition "neue Zeile"
  428.  %
  429.      \def \nz{\hfil\break}
  430.  %
  431.  % ---------------------------------------------------------------
  432.  % Definition "Absatz"
  433.  %
  434.       \def \ab{\par}
  435.  %
  436. %===============================================================================
  437. % Makro fuer Fussnoten mit automatischer Numerierung.
  438. %
  439. %===============================================================================
  440. %% Zaehler-Definitionen fuer Ueberschriften
  441. %%
  442. \expandafter \newcount \csname c@Tl\endcsname
  443.     \csname c@Tl\endcsname=0
  444. \expandafter \newcount \csname c@Tm\endcsname
  445.     \csname c@Tm\endcsname=0
  446. \expandafter \newcount \csname c@Tn\endcsname
  447.     \csname c@Tn\endcsname=0
  448. \expandafter \newcount \csname c@To\endcsname
  449.     \csname c@To\endcsname=0
  450. \expandafter \newcount \csname c@Tp\endcsname
  451.     \csname c@Tp\endcsname=0
  452. \def \resetcount#1    {\global
  453.     \csname c@#1\endcsname=0}
  454. \def\@nameuse#1{\csname #1\endcsname}
  455. \def\arabic#1{\@arabic{\@nameuse{c@#1}}}
  456. \def\@arabic#1{\ifnum #1>0 \number #1\fi}
  457. %-------------------------------------------------------------------------------
  458. % Zaehler-Definition fuer Fussnoten und Uberschriften:
  459. %
  460. \expandafter \newcount \csname c@fn\endcsname
  461.     \csname c@fn\endcsname=0
  462. \def \stepc#1    {\global
  463.     \expandafter
  464.     \advance
  465.     \csname c@#1\endcsname by 1}
  466. %-------------------------------------------------------------------------------
  467.    \def \foonote #1      {\bgroup
  468.                           \baselineskip=9pt plus0pt minus0pt
  469.                           \lineskip=9pt plus0pt minus6pt
  470.                           \lineskiplimit=-6pt
  471.                           \kla
  472.                           \textfont0=\kla \scriptfont0=\kkla
  473.                           \textfont1=\klb \scriptfont1=\kklb
  474.                           \textfont2=\klc \scriptfont2=\kklc
  475.                           \textfont3=\kld \scriptfont3=\kkld
  476.                           \scriptscriptfont0=\kkla
  477.                           \let\it=\klit \let\bf=\klbf \let\rm=\kla
  478.                           \let\sf=\klsf \let\sg=\klsf
  479.                           \stepc{fn} \footnote {$^{\kla\arabic{fn}}$}
  480.                           \bgroup #1%
  481.                           \egroup \egroup\ \ }
  482. %-------------------------------------------------------------------------------
  483.     \catcode`\@ = 12
  484. %===============================================================================
  485. % Aufzaehlungsliste ohne Einzug.
  486. %
  487. %===============================================================================
  488. \def\item#1{\smallskip\par\noindent\hangindent=5mm\hangafter=1\hbox to
  489. 5mm{#1\hfil}\ignorespaces}
  490. \def\itemitem#1{\smallskip\par\noindent\hangindent=10mm\hangafter=1\hbox
  491. to 10mm{\kern5mm#1\hfil}\ignorespaces}
  492. %-------------------------------------------------------------------------------
  493. % Makro fuer Tabelle mit 5 Spalten.
  494. % Die Tabellenbreite ist 18cic.
  495. %
  496. %-------------------------------------------------------------------------------
  497. %
  498. % Tabelle mit 5 Spalten.
  499.    \def \btab    {\ \vskip24pt\bgroup\par\noindent\baselineskip=9pt
  500.                   \let\sanf=\ssanf \let\send=\ssend
  501.                   \textfont0=\kla \scriptfont0=\kkla
  502.                   \textfont1=\klb \scriptfont1=\kklb
  503.                   \textfont2=\klc \scriptfont2=\kklc
  504.                   \textfont3=\kld \scriptfont3=\kkld
  505.                   \scriptscriptfont0=\kkla
  506.                   \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
  507.                   \let\bf=\klbf\let\sf=\klsf\let\sg=\klsf
  508.                   \let\rm=\klfam\let\nz=\cr
  509.                   \halign to 18cc \bgroup\strut
  510.                   \hfill ## & \hfill ## & \hfill ## &
  511.                   ## \hfill & \hfill ## \cr}
  512.  
  513.    \def \etab    {\egroup\par\egroup\vskip24pt}
  514.    \def \tabzw   {\kern6mm}
  515.    \def \hlin {\noalign{\medskip\hrule width 18cc height 0.3pt\medskip}}
  516.  
  517. %-------------------------------------------------------------------------------
  518.    \def \bleg    {\cr \noalign \bgroup \vskip4.5pt \let\cr=\hb \noindent}
  519.    \def \eleg    {\egroup \cr}
  520. %-------------------------------------------------------------------------------
  521.    \def \strich  {\leaders \hrule height1pt}
  522. %-------------------------------------------------------------------------------
  523. %===============================================================================
  524. % Referenzen mit freigestellter Numerierung in Grundschrift
  525. %
  526. %===============================================================================
  527. %
  528.      \def \begref {\vskip24pt}
  529.  
  530.      \def \ref #1#2{\bgroup\petit\par\noindent\hbox to 0.8cm{#1}%
  531.                    \nobreak\noindent
  532.                   \hangindent=1.02truecm\hangafter=1%
  533.                   #2 \par\egroup}
  534. %===============================================================================
  535. % Grenzwerte zu Integer- und Summenzeichen neben den Zeichen sowie unter       %
  536. % und ueber den Zeichen                                                        %
  537. %==============================================================================%
  538. %  Grenzwerte ueber und unter dem Integerzeichen
  539.   \def\intl{\int\limits}
  540. %  Grenzwerte neben dem Summenzeichen
  541.   \def\suml{\sum\nolimits}
  542. %==============================================================================%
  543. % Kopfzeile
  544. \headline={\ifnum\pageno=1{\hfil}
  545. \else\ifodd\pageno
  546. \the\rightheadline
  547.               \else \the\leftheadline\fi\fi}
  548. %-------------------------------------------------------------------
  549. % Abbildungen
  550. \def\begcap#1cm#2\endcap{\par\vskip18pt\def\footnoterule{}
  551. \parindent=0pt
  552. \setbox1=\vbox{\hbox{\vrule height#1true cm}#2}%
  553. \dimen0=\ht1\advance\dimen0by\dp1\advance\dimen0by5\normalbaselineskip
  554. \ifdim\dimen0>\vsize
  555.   \pageinsert\box1\vss\endinsert
  556.   \else % keine seitenhohe Abbildung
  557.   \ifdim\pagetotal<\pagegoal %aktuelle Seite noch nicht voll
  558.     \advance\dimen0by\pagetotal
  559.     \ifdim\dimen0>\pagegoal %passt Abb+4Z nicht mehr auf akt Seite
  560.       \topinsert\box1\endinsert
  561.       \else\dimen0=\pagetotal %Abb+4Z passt auf akt Seite
  562.       \advance\dimen0 by-6.5\normalbaselineskip
  563.       \ifdim\dimen0>0pt %sind mindestens 7 Zeilen ueber Abb
  564.         \vskip6pt plus6pt minus6pt
  565.         {\box1}
  566.         \vskip6pt plus6pt minus6pt
  567.         \else\topinsert\box1\endinsert
  568.       \fi
  569.     \fi
  570.     \else\dimen0=\pagetotal\advance\dimen0 by-\pagegoal %akt Seite voll
  571.     \advance\dimen0 by-6.5\normalbaselineskip
  572.     \ifdim\dimen0>0pt %sind noch 7 Zeilen vor Abb auf naechster Seite
  573.         \vskip6pt plus6pt minus6pt
  574.         {\box1}
  575.         \vskip6pt plus6pt minus6pt
  576.       \else\topinsert\box1\endinsert
  577.     \fi
  578.   \fi
  579. \fi}
  580. %
  581.